***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
*** This Program already converted to Y2K                                                                                                                                                                                                                 
*** S&T Departement     on 29 April 1999 by Ben.Rahman                                                                                                                                                                                                    
***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
set cent on                                                                                                                                                                                                                                               
@ 10,21 say kode                                                                                                                                                                                                                                          
@ 10,70 say fsale PICT 'Y'                                                                                                                                                                                                                                
@ 11,21 say name                                                                                                                                                                                                                                          
@ 11,70 say hline PICT 'Y'                                                                                                                                                                                                                                
@ 12,21 say tipe                                                                                                                                                                                                                                          
@ 12,70 say MEDS  PICT 'Y'                                                                                                                                                                                                                                
@ 13,21 say unit                                                                                                                                                                                                                                          
@ 14,21 say qant                                                                                                                                                                                                                                          
@ 15,21 say bunit                                                                                                                                                                                                                                         
@ 16,21 say sunit                                                                                                                                                                                                                                         
@ 17,21 say trpric pict '99,999,999'                                                                                                                                                                                                                      
@ 18,21 say slpric pict '99,999,999'                                                                                                                                                                                                                      
@ 19,21 say stref  pict '99,999,999'                                                                                                                                                                                                                      
@ 19,60 say clref  pict '99,999,999'                                                                                                                                                                                                                      
@ 20,21 say stmax  pict '99,999,999'                                                                                                                                                                                                                      
@ 20,60 say clmax  pict '99,999,999'                                                                                                                                                                                                                      
@ 21,26 say buyinsel pict '9,999'                                                                                                                                                                                                                         
@ 22,22 say nslpric  pict '99,999,999'                                                                                                                                                                                                                    
@ 22,49 say efetang  pict '99/99/9999'                                                                                                                                                                                                                    
